home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v8n20.arc / DEBUGSCR.BAS < prev    next >
BASIC Source File  |  1989-10-26  |  8KB  |  108 lines
  1. 100 REM - BASIC PROGRAM TO CREATE DEBUGSCR.COM
  2. 110 CLS:PRINT "Creating DEBUGSCR.COM": OPEN "DEBUGSCR.COM" AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO    89
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "    89 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  7. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "DEBUGSCR.COM created successfully": SYSTEM
  17. 260 PRINT: PRINT "DEBUGSCR.COM is not valid!": END
  18. 270 DATA E9, 37,  3,  D, 20, 20, 20,  D,  A, 44, 45, 42, 55, 47, 53, 43,   3A4
  19. 280 DATA 52, 20, 31, 2E, 30, 20, 28, 43, 29, 20, 31, 39, 38, 39, 20, 5A,   32A
  20. 290 DATA 69, 66, 66, 20, 43, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F,   63D
  21. 300 DATA 6E, 73, 20, 43, 6F, 2E, 20,  D,  A, 50, 43, 20, 4D, 61, 67, 61,   441
  22. 310 DATA 7A, 69, 6E, 65, 20, FE, 20, 4D, 69, 63, 68, 61, 65, 6C, 20, 4A,   611
  23. 320 DATA 2E, 20, 4D, 65, 66, 66, 6F, 72, 64,  D,  A,  A, 53, 79, 6E, 74,   4E0
  24. 330 DATA 61, 78, 3A, 20, 20, 44, 45, 42, 55, 47, 53, 43, 52, 20, 66, 69,   491
  25. 340 DATA 6C, 65, 73, 70, 65, 63, 20, 5B, 2F, 4E, 5D,  D,  A,  A, 2F, 4E,   46F
  26. 350 DATA 20, 3D, 20, 4E, 6F, 20, 69, 6E, 73, 74, 72, 75, 63, 74, 69, 6F,   5AE
  27. 360 DATA 6E, 20, 6D, 65, 73, 73, 61, 67, 65, 73, 20, 69, 6E, 20, 73, 63,   5D3
  28. 370 DATA 72, 69, 70, 74,  D,  A,  A, 66, 69, 6C, 65, 6E, 61, 6D, 65, 2E,   54F
  29. 380 DATA 53, 43, 52, 20, 77, 69, 6C, 6C, 20, 62, 65, 20, 63, 72, 65, 61,   562
  30. 390 DATA 74, 65, 64,  D,  A, 54, 6F, 20, 72, 65, 63, 72, 65, 61, 74, 65,   582
  31. 400 DATA 20, 66, 69, 6C, 65, 2C, 20, 45, 6E, 74, 65, 72,  D,  A,  A,  9,   434
  32. 410 DATA 44, 45, 42, 55, 47, 20, 3C, 20, 66, 69, 6C, 65, 6E, 61, 6D, 65,   524
  33. 420 DATA 2E, 53, 43, 52,  D,  A,  A, 24, 1A,  0,  0,  0,  0,  0,  0,  0,   175
  34. 430 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  1,  0,  0, 46, 69, 6C,   11C
  35. 440 DATA 65, 20, 6E, 6F, 74, 20, 66, 6F, 75, 6E, 64,  D,  A,  A, 24, 44,   49B
  36. 450 DATA 69, 73, 6B, 20, 65, 72, 72, 6F, 72,  D,  A,  A, 24, 2E, 53, 43,   49A
  37. 460 DATA 52,  0, 24, 2E, 45, 58, 45,  D,  A, 49, 6E, 70, 75, 74, 20, 66,   433
  38. 470 DATA 69, 6C, 65, 20, 74, 6F, 6F, 20, 62, 69, 67, 3B, 20, 63, 61, 6E,   58B
  39. 480 DATA 27, 74, 20, 62, 65, 20, 6D, 6F, 72, 65, 20, 74, 68, 61, 6E, 20,   540
  40. 490 DATA 36, 30, 4B,  D,  A,  A, 24, 4E, 6F, 74, 20, 65, 6E, 6F, 75, 67,   465
  41. 500 DATA 68, 20, 6D, 65, 6D, 6F, 72, 79, 3B, 20, 72, 65, 71, 75, 69, 72,   614
  42. 510 DATA 65, 73, 20, 36, 34, 4B,  D,  A,  A, 24, 63, 72, 65, 61, 74, 65,   466
  43. 520 DATA 64,  D,  A,  A, 24, 20, 52, 43, 58,  D,  A, 20, 57,  D,  A, 20,   27B
  44. 530 DATA 51,  D,  A,  D,  A,  9, 49, 66, 20, 79, 6F, 75, 20, 68, 61, 76,   413
  45. 540 DATA 65, 20, 64, 6F, 77, 6E, 6C, 6F, 61, 64, 65, 64, 20, 74, 68, 69,   60B
  46. 550 DATA 73, 20, 73, 63, 72, 69, 70, 74, 20, 66, 69, 6C, 65, 2C, 20, 72,   5A6
  47. 560 DATA 65, 6D, 6F, 76, 65,  D,  A,  9, 61, 6E, 79, 20, 63, 61, 70, 74,   54C
  48. 570 DATA 75, 72, 65, 64, 20, 63, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69,   669
  49. 580 DATA 6F, 6E, 73, 20, 68, 65, 61, 64, 65, 72, 20, 61, 6E, 64, 20, 74,   5C0
  50. 590 DATA 68, 65, 6E, 20, 65, 6E, 74, 65, 72,  D,  A,  D,  A,  9,  9, 44,   3FD
  51. 600 DATA 45, 42, 55, 47, 20, 3C, 20, 66, 69, 6C, 65, 6E, 61, 6D, 65,  D,   4ED
  52. 610 DATA  A,  D,  A,  9, 77, 68, 65, 72, 65, 20, 66, 69, 6C, 65, 6E, 61,   4D4
  53. 620 DATA 6D, 65, 20, 69, 73, 20, 74, 68, 65, 20, 6E, 61, 6D, 65, 20, 6F,   57F
  54. 630 DATA 66, 20, 74, 68, 69, 73, 20, 73, 63, 72, 69, 70, 74, 20, 66, 69,   5E2
  55. 640 DATA 6C, 65, 2E,  D,  A,  D,  A,  9, 4E, 6F, 74, 65, 20, 74, 68, 69,   431
  56. 650 DATA 73, 20, 69, 73, 20, 61, 6E, 20, 45, 58, 45, 20, 73, 63, 72, 69,   531
  57. 660 DATA 70, 74, 2E, 20, 20, 44, 65, 62, 75, 67, 20, 77, 69, 6C, 6C, 20,   531
  58. 670 DATA 6E, 6F, 74, 20, 63, 72, 65, 61, 74, 65,  D,  A,  9, 61, 20, 66,   4EC
  59. 680 DATA 69, 6C, 65, 20, 77, 69, 74, 68, 20, 61, 6E, 20, 45, 58, 45, 20,   527
  60. 690 DATA 6E, 61, 6D, 65, 20, 65, 78, 74, 65, 6E, 73, 69, 6F, 6E, 2E, 20,   5EC
  61. 700 DATA 20, 59, 6F, 75, 20, 68, 61, 76, 65, 20, 74, 6F, 20, 61, 64, 64,   56D
  62. 710 DATA  D,  A,  9, 74, 68, 65, 20, 45, 58, 45, 20, 65, 78, 74, 65, 6E,   4A7
  63. 720 DATA 73, 69, 6F, 6E, 20, 79, 6F, 75, 72, 73, 65, 6C, 66, 20, 41, 46,   5F9
  64. 730 DATA 54, 45, 52, 20, 74, 68, 65, 20, 66, 69, 6C, 65, 20, 69, 73, 20,   528
  65. 740 DATA 63, 72, 65, 61, 74, 65, 64,  D,  A,  9, 62, 79, 20, 44, 65, 62,   4FE
  66. 750 DATA 75, 67, 20, 62, 79, 20, 65, 6E, 74, 65, 72, 69, 6E, 67, 20, 74,   5E7
  67. 760 DATA 68, 65, 20, 66, 6F, 6C, 6C, 6F, 77, 69, 6E, 67, 20, 61, 74, 20,   5D3
  68. 770 DATA 74, 68, 65, 20, 44, 4F, 53, 20, 70, 72, 6F, 6D, 70, 74,  D,  A,   520
  69. 780 DATA  D,  A,  9, 52, 45, 4E, 41, 4D, 45, 20, FC, BA,  3,  1, E8, 3F,   4D9
  70. 790 DATA  2, BB,  0, 10, B4, 4A, CD, 21, BA, 67,  2, 73,  3, E9, C6,  1,   602
  71. 800 DATA BE, 81,  0, AC, 3C,  D, 74, 24, 3C, 2F, 75, 12, C6, 44, FF,  D,   5D4
  72. 810 DATA AC, 24, 5F, 3C, 4E, 75, 15, C6,  6,  4,  2,  1, EB,  E, 3C, 61,   4AC
  73. 820 DATA 72, E1, 3C, 7A, 77, DD, 80, 64, FF, 5F, EB, D7, BE, 81,  0, AC,   94C
  74. 830 DATA 3C,  D, 75,  6, BA,  D,  2, E9, 8C,  1, 3C, 20, 76, F1, 4E, 8B,   59F
  75. 840 DATA EE, 89, 2E, F9,  1, 8B, D6, 33, C9, AC, 3C, 3A, 74,  4, 3C, 5C,   72E
  76. 850 DATA 75,  2, 8B, D6, 3C, 2E, 75,  3, 8B, CE, 49, 3C, 20, 77, EA, 4E,   667
  77. 860 DATA C6,  4,  0, 89, 36, FB,  1, 89, 16, FD,  1, 89,  E,  1,  2, 8B,   547
  78. 870 DATA D5, B8,  0, 3D, CD, 21, 73,  C, C6,  4, 24, E8, B2,  1, BA, 11,   68B
  79. 880 DATA  2, E9, 42,  1, 8B, D8, BA, E9,  6, B9,  1, F0, B4, 3F, CD, 21,   7C5
  80. 890 DATA 73,  6, BA, 1F,  2, E9, 2E,  1, 3B, C1, 75,  6, BA, 39,  2, E9,   5C1
  81. 900 DATA 24,  1, A3,  5,  2, B4, 3E, CD, 21, 8B, 1E, FB,  1, 8B, 2E,  1,   50E
  82. 910 DATA  2,  B, ED, 75,  4, 8B, EB, EB, 13, 8B, F5, BF, 33,  2, B9,  4,   718
  83. 920 DATA  0, F3, A6, 75,  7, C6,  6,  3,  2,  1, 8B, DD, 8B, 36, FD,  1,   60E
  84. 930 DATA 8B, CB, 2B, CE, 89,  E, FF,  1, BF, 88,  6, F3, A4, BE, 2D,  2,   7B7
  85. 940 DATA 8B, FD, B9,  6,  0, F3, A4, 8B, 16, F9,  1, 33, C9, B4, 3C, CD,   832
  86. 950 DATA 21, 73,  6, BA, 1F,  2, E9, CD,  0, A3,  7,  2, 8B,  E, FF,  1,   570
  87. 960 DATA 83, C1,  3, E8, D0,  0, 8B, 2E,  5,  2, BE, E9,  6, BF, 86,  6,   6B7
  88. 970 DATA C7,  6,  B,  2,  3,  0, E8, DB,  0, B9, 10,  0, B0, 20, AA, FF,   5E2
  89. 980 DATA  6,  B,  2, AC, E8, E9,  0, 4D, 74,  B, E2, F0, 8B,  E,  B,  2,   5D4
  90. 990 DATA E8, A3,  0, EB, D8, 8B,  E,  B,  2, E8, 9A,  0, BA, 95,  2, B9,   780
  91. 1000 DATA  6,  0, E8, 8A,  0, A1,  5,  2, 50, 8A, C4, BF, 86,  6, E8, BF,   6B0
  92. 1010 DATA  0, 58, E8, BB,  0, B9,  5,  0, E8, 7B,  0, BA, 9B,  2, B9,  A,   636
  93. 1020 DATA  0, E8, 6B,  0, 80, 3E,  4,  2,  1, 74, 3D, BA, A5,  2, B9, B0,   593
  94. 1030 DATA  0, E8, 5B,  0, 80, 3E,  3,  2,  1, 75, 2D, BA, 55,  3, B9, E5,   559
  95. 1040 DATA  0, E8, 4B,  0, 8B, 16, FD,  1, 52, 8B,  E, FF,  1, 51, E8, 3E,   634
  96. 1050 DATA  0, BA, 85,  6, B9,  1,  0, E8, 35,  0, 59, 5A, E8, 30,  0, BA,   5A1
  97. 1060 DATA 33,  2, B9,  6,  0, E8, 27,  0, 8B, 1E,  7,  2, B4, 3E, CD, 21,   495
  98. 1070 DATA 72, 11, 8B, 16, F9,  1, E8, 77,  0, BA, 8A,  2, E8, 71,  0, 32,   64E
  99. 1080 DATA C0, EB,  8, BA, 1F,  2, E8, 67,  0, B0,  1, B4, 4C, CD, 21, B4,   730
  100. 1090 DATA 40, CD, 21, 72, EE, C3, BA, 85,  6, 8B, 1E,  7,  2, E8, EF, FF,   81E
  101. 1100 DATA C6,  6, 86,  6,  D, C6,  6, 87,  6,  A, BA, 86,  6, B9,  2,  0,   4C9
  102. 1110 DATA E8, DC, FF, C3, B0, 45, AA, B0, 20, AA, A1,  9,  2, 50, 86, C4,   8E5
  103. 1120 DATA E8,  D,  0, 58, A1,  9,  2, E8,  6,  0, 83,  6,  9,  2, 10, C3,   44E
  104. 1130 DATA 51, BA,  2,  0, 8A, D8, B1,  4, D2, C3, 8A, C3, 24,  F,  4, 30,   66D
  105. 1140 DATA 3C, 39, 76,  2,  4,  7, AA, FF,  6,  B,  2, 4A, 75, E8, 59, C3,   577
  106. 1150 DATA B4,  9, CD, 21, C3, 20, 4E, 20,  0,  0,  0,  0,  0,  0,  0,  0,   2FC
  107. 1160 DATA 124351
  108.